home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Drivers / MemBoardTest.lha / MemBoardTest / mygadg.mod < prev    next >
Encoding:
Modula Implementation  |  1988-10-02  |  10.5 KB  |  363 lines
  1. IMPLEMENTATION MODULE mygadg;
  2.  
  3. FROM SYSTEM IMPORT ADR, ADDRESS, BYTE, WORD, NULL;
  4.  
  5. FROM InOut IMPORT WriteString, WriteLn;
  6. FROM Intuition IMPORT GadgetFlagSet,GadgetFlags,
  7.      ActivationFlagSet,ActivationFlags,
  8.      Gadget,GadgetPtr,Requester,BorderPtr,Border,Screen,ScreenFlagSet,
  9.      IntuitionText, IntuitionTextPtr;
  10. FROM Strings IMPORT String, Concat, SetTerminator;
  11. FROM Gadgets IMPORT AddGadget, ScreenGadget, StrGadget, BoolGadget,
  12.      RefreshGadgets,RemoveGadget;
  13. FROM GraphicsLibrary IMPORT DrawingModes,DrawingModeSet,Jam1;
  14.  
  15. VAR  incgadg,modegadg,startgadg,rereadgadg,
  16.      filestatusgadg, messagegadg, palettecallgadg : Gadget;
  17.      modetextintui, rereadtextintui,filestatustextintui,
  18.      starttextintui, bittextintui, dectextintui, inctextintui, 
  19.      messtextintui, palettecalltextintui : IntuitionText;
  20.      i,j : CARDINAL;   
  21.      starttext, rereadtext, dectext, inctext, palettecalltext : String;
  22.      boolpairs2,bigboolpairs,bigboolpairs2 : ARRAY[0..31] OF WORD;
  23.      boolborder2,bigboolborder,bigboolborder2 : Border;
  24.  
  25. PROCEDURE donothing;
  26. BEGIN
  27.    WriteString('this procedure does fuck all');
  28.    WriteLn;
  29. END donothing;
  30.  
  31.  
  32.  
  33. BEGIN
  34.   
  35.   SetTerminator(CHR(0));
  36.   messtext :=  'DISPLAY ERRORS';
  37.   modetext  := 'BIT TEST   ';
  38.   filestatustext := 'NOT SAVING ';
  39.   starttext := 'START';
  40.   rereadtext := 'REREAD';
  41.   dectext     := 'DEC';
  42.   inctext     := 'INC';   
  43.   palettecalltext := 'PALETTE';
  44.  
  45.    WITH dectextintui DO
  46.       FrontPen := BYTE(1);
  47.       BackPen  := BYTE(0);
  48.       DrawMode := BYTE(DrawingModeSet(Jam2));
  49.       LeftEdge := 2;
  50.       TopEdge  := 2;
  51.       ITextFont := NULL;
  52.       IText := ADR(dectext);
  53.       NextText := NULL;
  54.       END;
  55.  
  56.    WITH inctextintui DO
  57.       FrontPen := BYTE(1);
  58.       BackPen  := BYTE(0);
  59.       DrawMode := BYTE(DrawingModeSet(Jam2));
  60.       LeftEdge := 2;
  61.       TopEdge  := 2;
  62.       ITextFont := NULL;
  63.       IText := ADR(inctext);
  64.       NextText := NULL;
  65.       END;
  66.  
  67.    WITH modetextintui DO
  68.       FrontPen := BYTE(1);
  69.       BackPen  := BYTE(0);
  70.       DrawMode := BYTE(DrawingModeSet(Complement));
  71.       LeftEdge := 2;
  72.       TopEdge  := 2;
  73.       ITextFont := NULL;
  74.       IText := ADR(modetext);
  75.       NextText := NULL;
  76.       END;
  77.  
  78.    WITH messtextintui DO
  79.       FrontPen := BYTE(1);
  80.       BackPen  := BYTE(0);
  81.       DrawMode := BYTE(DrawingModeSet(Complement));
  82.       LeftEdge := 2;
  83.       TopEdge  := 2;
  84.       ITextFont := NULL;
  85.       IText := ADR(messtext);
  86.       NextText := NULL;
  87.       END;
  88.  
  89.    WITH starttextintui DO
  90.       FrontPen := BYTE(1);
  91.       BackPen  := BYTE(0);
  92.       DrawMode := BYTE(Jam1);
  93.       LeftEdge := 2;
  94.       TopEdge  := 2;
  95.       ITextFont := NULL;
  96.       IText := ADR(starttext);
  97.       NextText := NULL;
  98.       END;
  99.  
  100.    WITH rereadtextintui DO
  101.       FrontPen := BYTE(1);
  102.       BackPen  := BYTE(0);
  103.       DrawMode := BYTE(Jam1);
  104.       LeftEdge := 2;
  105.       TopEdge  := 2;
  106.       ITextFont := NULL;
  107.       IText := ADR(rereadtext);
  108.       NextText := NULL;
  109.       END;
  110.  
  111.    WITH filestatustextintui DO
  112.       FrontPen := BYTE(1);
  113.       BackPen  := BYTE(0);
  114.       DrawMode := BYTE(DrawingModeSet(Complement));
  115.       LeftEdge := 2;
  116.       TopEdge  := 2;
  117.       ITextFont := NULL;
  118.       IText := ADR(filestatustext);
  119.       NextText := NULL;
  120.       END;
  121.  
  122.    WITH palettecalltextintui DO
  123.       FrontPen := BYTE(1);
  124.       BackPen  := BYTE(0);
  125.       DrawMode := BYTE(DrawingModeSet(Complement));
  126.       LeftEdge := 2;
  127.       TopEdge  := 2;
  128.       ITextFont := NULL;
  129.       IText := ADR(palettecalltext);
  130.       NextText := NULL;
  131.       END;
  132.  
  133.      boolpairs[0] := WORD(-1);   
  134.      boolpairs[1] := WORD(-2);   
  135.      boolpairs[2] := WORD(65);   
  136.      boolpairs[3] := WORD(-2);
  137.      boolpairs[4] := WORD(65);   
  138.      boolpairs[5] := WORD(15);
  139.      boolpairs[6] := WORD(-1);   
  140.      boolpairs[7] := WORD(15);
  141.      boolpairs[8] := WORD(-1);   
  142.      boolpairs[9] := WORD(-2);   
  143.   
  144.      boolpairs2[0]:= WORD(67);
  145.      boolpairs2[1]:= WORD(2) ;
  146.      boolpairs2[2]:= WORD(67);
  147.      boolpairs2[3]:= WORD(17);
  148.      boolpairs2[4]:= WORD(1) ;
  149.      boolpairs2[5]:= WORD(17);
  150.          
  151.  
  152.      bigboolpairs[0] := WORD(-1);        
  153.      bigboolpairs[1] := WORD(-2);        
  154.      bigboolpairs[2] := WORD(143);       
  155.      bigboolpairs[3] := WORD(-2);
  156.      bigboolpairs[4] := WORD(143);       
  157.      bigboolpairs[5] := WORD(15);
  158.      bigboolpairs[6] := WORD(-1);        
  159.      bigboolpairs[7] := WORD(15);
  160.      bigboolpairs[8] := WORD(-1);        
  161.      bigboolpairs[9] := WORD(-2);        
  162.   
  163.      bigboolpairs2[0]:= WORD(145);
  164.      bigboolpairs2[1]:= WORD(2) ;
  165.      bigboolpairs2[2]:= WORD(145);
  166.      bigboolpairs2[3]:= WORD(17);
  167.      bigboolpairs2[4]:= WORD(1) ;
  168.      bigboolpairs2[5]:= WORD(17);
  169.          
  170.      
  171.      WITH boolborder DO
  172.          LeftEdge := -1;
  173.          TopEdge := -1;
  174.          FrontPen := BYTE(1);
  175.          BackPen  := BYTE(0);
  176.          DrawMode := BYTE(Jam1);
  177.          Count    := BYTE(5);
  178.          XY       := ADR(boolpairs);
  179.          NextBorder := BorderPtr(ADR(boolborder2));
  180.          END; (* with *)
  181.  
  182.      WITH boolborder2 DO
  183.          LeftEdge := -1;
  184.          TopEdge := -1;
  185.          FrontPen := BYTE(1);
  186.          BackPen  := BYTE(0);
  187.          DrawMode := BYTE(Jam1);
  188.          Count    := BYTE(3);
  189.          XY       := ADR(boolpairs2);
  190.          NextBorder := BorderPtr(NULL);
  191.          END; (* with *)
  192.  
  193.      
  194.      WITH bigboolborder DO
  195.          LeftEdge := -1;
  196.          TopEdge := -1;
  197.          FrontPen := BYTE(1);
  198.          BackPen  := BYTE(0);
  199.          DrawMode := BYTE(Jam1);
  200.          Count    := BYTE(5);
  201.          XY       := ADR(bigboolpairs);
  202.          NextBorder := BorderPtr(ADR(bigboolborder2));
  203.          END; (* with *)
  204.  
  205.      WITH bigboolborder2 DO
  206.          LeftEdge := -1;
  207.          TopEdge := -1;
  208.          FrontPen := BYTE(1);
  209.          BackPen  := BYTE(0);
  210.          DrawMode := BYTE(Jam1);
  211.          Count    := BYTE(3);
  212.          XY       := ADR(bigboolpairs2);
  213.          NextBorder := BorderPtr(NULL);
  214.          END; (* with *)
  215.  
  216.       WITH decgadg DO
  217.          NextGadget := GadgetPtr(ADR(incgadg));
  218.          LeftEdge   := 20;
  219.          TopEdge    := 90;
  220.          Width      := 60;
  221.          Height     := 12;
  222.          Flags      := GadgetFlagSet{};
  223.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  224.          GadgetType := BoolGadget;
  225.          GadgetRender := ADR(boolborder);
  226.          SelectRender := NULL;
  227.          GadgetText := IntuitionTextPtr(ADR(dectextintui));
  228.          MutualExclude := 0;
  229.          SpecialInfoString  := NULL;
  230.          GadgetID := 5;
  231.          END; (* WITH *)
  232.      
  233.      
  234.       WITH incgadg DO
  235.          NextGadget := GadgetPtr(ADR(modegadg));
  236.          LeftEdge   := 100;
  237.          TopEdge    := 90;
  238.          Width      := 60;
  239.          Height     := 12;
  240.          Flags      := GadgetFlagSet{};
  241.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  242.          GadgetType := BoolGadget;
  243.          GadgetRender := ADR(boolborder);
  244.          SelectRender := NULL;
  245.          GadgetText := IntuitionTextPtr(ADR(inctextintui));
  246.          MutualExclude := 0;
  247.          SpecialInfoString   := NULL;
  248.          GadgetID := 6;
  249.          END; (* WITH *)
  250.  
  251.       WITH modegadg DO
  252.          NextGadget := GadgetPtr(ADR(messagegadg));
  253.          LeftEdge   := 20;
  254.          TopEdge    := 120;
  255.          Width      := 130;
  256.          Height     := 12;
  257.          Flags      := GadgetFlagSet{};
  258.          Activation := ActivationFlagSet{StringCenter,GadgetImmediate,
  259.                                          RelVerify};
  260.          GadgetType := BoolGadget;
  261.          GadgetRender := ADR(bigboolborder);
  262.          SelectRender := NULL;
  263.          GadgetText := IntuitionTextPtr(ADR(modetextintui));
  264.          MutualExclude := 0;
  265.          SpecialInfoString   := NULL;
  266.          GadgetID := 1;
  267.          END; (* WITH *)
  268.  
  269.      
  270.       WITH messagegadg DO
  271.          NextGadget := GadgetPtr(ADR(startgadg));
  272.          LeftEdge   := 20;
  273.          TopEdge    := 150;
  274.          Width      := 130;
  275.          Height     := 12;
  276.          Flags      := GadgetFlagSet{};
  277.          Activation := ActivationFlagSet{StringCenter,GadgetImmediate,
  278.                                          RelVerify};
  279.          GadgetType := BoolGadget;
  280.          GadgetRender := ADR(bigboolborder);
  281.          SelectRender := NULL;
  282.          GadgetText := IntuitionTextPtr(ADR(messtextintui));
  283.          MutualExclude := 0;
  284.          SpecialInfoString   := NULL;
  285.          GadgetID := 20;
  286.          END; (* WITH *)
  287.  
  288.      
  289.  
  290.     
  291.       WITH startgadg DO
  292.          NextGadget := GadgetPtr(ADR(rereadgadg));
  293.          LeftEdge   := 180;
  294.          TopEdge    := 150;
  295.          Width      := 60;
  296.          Height     := 12;
  297.          Flags      := GadgetFlagSet{};
  298.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  299.          GadgetType := BoolGadget;
  300.          GadgetRender := ADR(boolborder);
  301.          SelectRender := NULL;
  302.          GadgetText := IntuitionTextPtr(ADR(starttextintui));
  303.          MutualExclude := 0;
  304.          SpecialInfoString   := NULL;
  305.          GadgetID := 3
  306.          END; (* WITH *)
  307.  
  308.      
  309.       WITH rereadgadg DO
  310.          NextGadget := GadgetPtr(ADR(filestatusgadg));
  311.          LeftEdge   := 180;
  312.          TopEdge    := 180;
  313.          Width      := 60;
  314.          Height     := 12;
  315.          Flags      := GadgetFlagSet{};
  316.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  317.          GadgetType := BoolGadget;
  318.          GadgetRender := ADR(boolborder);
  319.          SelectRender := NULL;
  320.          GadgetText := IntuitionTextPtr(ADR(rereadtextintui));
  321.          MutualExclude := 0;
  322.          SpecialInfoString  := NULL;
  323.          GadgetID := 4;
  324.          END; (* WITH *)
  325.  
  326.       WITH filestatusgadg DO 
  327.          NextGadget := GadgetPtr(ADR(palettecallgadg));
  328.          LeftEdge   := 20;
  329.          TopEdge    := 180;
  330.          Width      := 130;
  331.          Height     := 12;
  332.          Flags      := GadgetFlagSet{};
  333.          Flags      := GadgetFlagSet{};
  334.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  335.          GadgetType := BoolGadget;
  336.          GadgetRender := ADR(bigboolborder);
  337.          SelectRender := NULL;
  338.          GadgetText := IntuitionTextPtr(ADR(filestatustextintui));
  339.          MutualExclude := 0;
  340.          SpecialInfoString  := NULL;
  341.          GadgetID := 7;
  342.          END; (* WITH *)
  343.  
  344.       WITH palettecallgadg DO 
  345.          NextGadget := NULL;
  346.          LeftEdge   := 20;
  347.          TopEdge    := 210;
  348.          Width      := 130;
  349.          Height     := 12;
  350.          Flags      := GadgetFlagSet{};
  351.          Flags      := GadgetFlagSet{};
  352.          Activation := ActivationFlagSet{GadgetImmediate,RelVerify};
  353.          GadgetType := BoolGadget;
  354.          GadgetRender := ADR(bigboolborder);
  355.          SelectRender := NULL;
  356.          GadgetText := IntuitionTextPtr(ADR(palettecalltextintui));
  357.          MutualExclude := 0;
  358.          SpecialInfoString  := NULL;
  359.          GadgetID := 8;
  360.          END; (* WITH *)
  361.          
  362. END mygadg.
  363.